后台采用插入手动分页符[NextPage]后，前台应该如何调用

来源：百度知道 编辑：UC知道 时间：2024/05/14 02:43:05
asp语言 后台采用插入手动分页符[NextPage]后，前台应该如何调用

在线等....急用
<% id = Request.QueryString("id")
if not isnumeric(id) or id = "" then
response.Write "<script>history.back();</script>"
response.End()
else
id = cint(id)
end if
set rs = server.CreateObject("ADODB.Recordset")
str = "select * from products where productid = "&id
rs.open str,conn
if not rs.eof then
pName = rs("productName")
pPic = rs("small_pic")
bpic = rs("Big_pic")
pDescription = rs("description")
commend = rs("tuijian")
spec = rs("spec")
style = rs("style")
end if
rs.close
set rs = nothing %>
这是产品内容页，这是先把相关信息读取出来，在需要显示内容的时候，我是直接调用的 <%= pDescription %>，那像这样的方式，应该如何使用这种分页方式

火舞娇洋 用你的代码运行就提示

Microsoft VBScript 运行时错误 错误 '800a000d&

<% id = Request.QueryString("id")
if not isnumeric(id) or id = "" then
response.Write "<script>history.back();</script>"
response.End()
else
id = cint(id)
end if
set rs = server.CreateObject("ADODB.Recordset")
str = "select * from products where productid = "&id
rs.open str,conn
if not rs.eof then
pName = rs("productName")
pPic = rs("small_pic")
bpic = rs("Big_pic")
pDescription = rs("description")
commend = rs("tuijian")
spec = rs("spec")
style = rs("style")
end if
rs.close
set rs = nothing

If Request("page")="" Then
pageNum=0
Else
pageNum=Request("page")
End if
If rs("NoUBB")=0 then
pDescription=Replace((unHTML(rs("pDescription"))),"[Ne